x <-matrix( rnorm( 1000 * 700), ncol = 700 )
system.time( s1 <- cor(x) )
system.time( s2 <- cora(x) )
all.equal(s1, s2)
x <- as.matrix(iris[, 1:4])
system.time( for (i in 1:1000) cova(x) )
system.time( for (i in 1:1000) cov(x) )
Run the code above in your browser using DataLab